Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/loancalc.arc/READINT.PAS

Pascal/Delphi Source File | 1991-04-28 | 258b | 8 lines

FUNCTION ReadInt(VAR i: integer; low, high: integer): boolean;
{ Attempt to read an integer between low and high. Return
  true and the integer (through i) iff successful. }
BEGIN
  readln(i);
  ReadInt := (i >= low) AND (i <= high)
END; { ReadInt }